clear all;
close all;

f = imread('1g.jpg');

fgray = rgb2gray(f);

 figure(1);
 imshow(f);
% 
figure(2);
plot(imhist(fgray));


% binaryzacja dwuprogowa aby wykluczyc piksele powyzej 220 jasnosci - mamy
% pewnosc ze nie bedzie bialych pikseli tla
bw1 = im2bw(f,160/255);
bw2 = ~im2bw(f,220/255);

bw = immultiply(bw1,bw2);

% figure(3);
% imshow(bw);


% porownanie 3 sposobow wykrywania krawedzi
% dla monet najlepszy bedzie canny
sobel = edge(fgray,'sobel');
canny = edge(fgray, 'canny');
prewitt = edge(fgray, 'prewitt');

% figure(4);
% subplot(1,3,1);
% imshow(sobel);
% title('sobel');
% subplot(1,3,2);
% imshow(canny);
% title('canny');
% subplot(1,3,3);
% imshow(prewitt);
% title('prewitt');

%%%%%%%%%%%%%%%%
fbin = canny;

% oeracja zamkniecia (dylatacja + erozja) zeby zakleic male dziury i
% wypelnic przestrzen miedzy bliskimi krawedziami
se = strel('disk',4);
BW5 = imclose(fbin,se);

figure;
imshow(BW5);

img = imresize(BW5,0.2);

figure;
imshow(img);



f2 = imread('1gr.jpg');

 figure;
 imshow(f2);

fgray = rgb2gray(f2);



figure;
plot(imhist(fgray));


% binaryzacja dwuprogowa aby wykluczyc piksele powyzej 220 jasnosci - mamy
% pewnosc ze nie bedzie bialych pikseli tla
bw1 = im2bw(f2,160/255);
bw2 = ~im2bw(f2,220/255);

bw = immultiply(bw1,bw2);




% porownanie 3 sposobow wykrywania krawedzi
% dla monet najlepszy bedzie canny
sobel = edge(fgray,'sobel');
canny = edge(fgray, 'canny');
prewitt = edge(fgray, 'prewitt');



%%%%%%%%%%%%%%%%
fbin = canny;

% oeracja zamkniecia (dylatacja + erozja) zeby zakleic male dziury i
% wypelnic przestrzen miedzy bliskimi krawedziami
se = strel('disk',4);
BW5 = imclose(fbin,se);

figure;
imshow(BW5);

img2 = imresize(BW5,0.2);

figure;
imshow(img2);

